home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / zugabe / va45 / visual45 / gwva_def.s < prev    next >
Text File  |  1998-09-01  |  30KB  |  626 lines
  1. *-----------------------  Structure of the V.A Object  ----------------------*
  2.     rsreset
  3.  
  4. GWVA_OBJ_NAME:        rs.l 1    ; nom éventuellement unique optionnel
  5. GWVA_OBJ_CLASS:        rs.w 1    ; type de l'objet (fenetre, objet formulaire ...)
  6.     ; GWVA_CLASS_WIND
  7.     ; GWVA_CLASS_WIND.APP
  8.     ; GWVA_CLASS_WIND.RSC
  9.     ; GWVA_CLASS_WIND.RSC.FORM
  10.     ; GWVA_CLASS_WIND.RSC.POPUP
  11.     ; GWVA_CLASS_WIND.TEXT
  12.     ; GWVA_CLASS_WIND.BITMAP
  13.     ; GWVA_CLASS_MENU
  14.     ; GWVA_CLASS_FORM
  15.     ; GWVA_CLASS_FORM.BUTTON
  16.     ; GWVA_CLASS_FORM.MENU_POPUP
  17.     ; GWVA_CLASS_FORM.RADIO_BUTTON
  18.     ; *GWVA_CLASS_FORM.ROLL_POPUP
  19.     ; *GWVA_CLASS_FORM.ROLL_RADIO_B
  20.     ; *GWVA_CLASS_FORM.PROGRESS_BAR
  21.     ; GWVA_CLASS_FORM.SLIDER
  22.     ; *GWVA_CLASS_FORM.CLICK_EQUIV
  23.     ; GWVA_CLASS_FORM.TEXT
  24.     ; GWVA_CLASS_FORM.TEXT.CHAINED_TEXT
  25.     ;* = pas d'évènements
  26.  
  27. GWVA_OBJ_HANDLE:        rs.w 1    ; handle unique de l'objet
  28. GWVA_OBJ_PROPERTIES:        rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  29.     ; GWVA_OBJ_OLBIT_ENCAPSULATES : 1=this object encapsulates all his sons
  30.     ; GWVA_OBJ_OLBIT_MASK_METHOD    : 1 = aucun évènement ne sera distribué à cet objet
  31.     ; GWVA_OBJ_OLBIT_DISABLE_DEFAULT_METHOD : 1 = empêche l'utilidation des méthodes par défaut
  32.     ; 3-7  : reserved, must be 0
  33.     ; 8-15 : free for user
  34. GWVA_OBJ_METHODTLIST_PTR:    rs.l 1    ; pointeur sur la liste locale d'évènements de l'objet
  35. GWVA_OBJ_SHORTCUTLIST_PTR:    rs.l 1    ; pointeur sur la liste des shortcuts évènementiels de l'objet
  36. GWVA_OBJ_FATHER_PTR:        rs.l 1    ; 0.l si pas d'objet père
  37. GWVA_OBJ_NEXT_BROTHER_PTR:    rs.l 1    ; 0.l si pas d'objet frère
  38. GWVA_OBJ_FIRST_SON_PTR:        rs.l 1    ; 0.l si pas d'objet fils
  39.  
  40. GWVA_OBJ_STRUCT_LENGTH:        rs.w 0
  41.  
  42. *-------------------  Structure of the Object Method list  -------------------*
  43.     rsreset
  44.  
  45. GWVA_OBJ_METHODLIST_ITEM_METHOD:    rs.l 1    ; numéro de la méthode ou commande en fonction du bit ..
  46. GWVA_OBJ_METHODLIST_ITEM_CLASS:    rs.w 1    ; numéro de la classe concernée par le BEFORE et AFTER
  47. GWVA_OBJ_METHODLIST_ITEM_PROPERTIES:rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  48.     ; GWVA_METHOD_PROPERTIES_OLBIT_COMMAND : 1= ITEM_METHOD contient une commande et non une méthode
  49. GWVA_OBJ_METHODLIST_ITEM_ROUTINE:    rs.l 1    ; routine à éxécuter
  50.  
  51. GWVA_OBJ_METHODLIST_STRUCT_LENGTH:    rs.w 0
  52.  
  53. *-------------  Structure of the Object Method Shortcut list  ---------------*
  54.     rsreset
  55.  
  56. GWVA_OBJ_SHORTCUTLIST_ITEM_SHORTCUT:rs.w 1    ; shortcut éventuel (doit être en premier pour la compatibilité de recherche de liste)
  57. GWVA_OBJ_SHORTCUTLIST_ITEM_METHOD:    rs.l 1    ; numéro de la méthode
  58.  
  59. GWVA_OBJ_SHORTCUTLIST_STRUCT_LENGTH:rs.w 0
  60.  
  61. *--------------------  Structure of the Window Objects  ---------------------*
  62. *----------------------  Encapsulates the V.A Object
  63.     rsreset
  64.  
  65.     rs.b GWVA_OBJ_STRUCT_LENGTH
  66.  
  67. GWVA_WIND_OBJ_FLAGS:        rs.w 1    ; same as GEM bits
  68.     ; NAME / CLOSER / FULLER / MOVER / INFO / SIZER
  69.     ; UPARROW / DNARROW / VSLIDE
  70.     ; LFARROW / RTARROW / HSLIDE
  71.     ; SMALLER
  72.  
  73. GWVA_WIND_OBJ_STATUS:        rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  74.     ; GWVA_WIND_OLBIT_FULL     : 1=fulled
  75.     ; GWVA_WIND_OLBIT_OPEN     : 0=closed, 1=opened
  76.     ; GWVA_WIND_OLBIT_CURS       : 1=curseur du champ éditable affiché
  77.     ; GWVA_WIND_OLBIT_ICON       : 1=iconified
  78.     ; GWVA_WIND_OLBIT_NAMIFIED : 1=window reduced to a title (and info)
  79.     ; GWVA_WIND_OLBIT_SHADED   : 1=window reduced to a title by system (WinX, Magic)
  80.     ; GWVA_WIND_OLBIT_UNTOPPABLE : 1=window receive clicks and no WM_TOPPED
  81.     ; 7 : Reserved, must be 0
  82.     ; 8-15 : Free for user
  83.  
  84. *à coder 16->32 eb
  85. GWVA_WIND_OBJ_PROPERTIES:    rs.l 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  86.     ; GWVA_WIND_OLBIT_HIDETREE : 1=toolbar will not be taken into account
  87.     ; GWVA_WIND_OLBIT_AMENU    : 1=window has got a menu attached
  88.     ; GWVA_WIND_OLBIT_CTRLC    : 1=supports CTRL+C
  89.     ; GWVA_WIND_OLBIT_CTRLV    : 1=supports CTRL+V
  90.     ; GWVA_WIND_OLBIT_CTRLX    : 1=supports CTRL+X
  91.     ; GWVA_WIND_OLBIT_TOOLBAR  : 1=window is a toolbar
  92.     ; GWVA_WIND_OLBIT_TOOLBAR_POS1    : see the masks in gwva_cte.s to put it
  93.     ; GWVA_WIND_OLBIT_TOOLBAR_POS2    : at the top/left/right/bottom position
  94.     ; GWVA_WIND_OLBIT_COPYXY   : 1=automatically copy window current_x,y to first_x,y when closed
  95.     ; GWVA_WIND_OLBIT_AUTODEL  : 1=automatically delete window when closed
  96.     ; GWVA_WIND_OLBIT_FREEPTR1 : 1=automatically MFREE USER_PTR1 if window deleted
  97.     ; GWVA_WIND_OLBIT_FREEPTR2 : 1=automatically MFREE USER_PTR2 if window deleted
  98.     ; GWVA_WIND_OLBIT_FIRSTFOCUS    : 1=has got the focus at startup among all children
  99.     ; GWVA_WIND_OLBIT_KEY2ARROW    : 1=the arrow keys are converted in arrow message
  100.     ; 14-31 : reserved : must be 0
  101.  
  102. GWVA_WIND_OBJ_TOPABLE_STATE:    rs.w 1    ; increment to make it untop, decrement to restore original state (0 at startup)
  103.                 ; decrement to make it ununtop, increment to restore original state (0 at startup)
  104. GWVA_WIND_OBJ_NAME_PTR:        rs.l 1    ; ptr sur nom
  105. GWVA_WIND_OBJ_INFO_PTR:        rs.l 1    ; ptr sur l'info
  106. GWVA_WIND_OBJ_ICON_WIND_PTR:    rs.l 1    ; ptr sur une structure fenêtre
  107. GWVA_WIND_OBJ_FOCUSED_CHILD_PTR:    rs.l 1    ; ptr sur la fenêtre fille focusée (pour la fenêtre en question)
  108. GWVA_WIND_OBJ_MOUSE_SPEC_PTR:    rs.l 1    ; ptr sur la structure souris associée à la fenêtre
  109.  
  110. GWVA_WIND_OBJ_MENU_SPEC_PTR:    rs.l 1    ; ptr sur l'objet menu (GWVA_MENU_STRUCT)
  111. GWVA_WIND_OBJ_MENU_HEIGHT:    rs.w 1    ; hauteur du menu 0.w si aucun
  112.  
  113. ;<<< Ces valeurs ne sont pas modifiées par le VISUAL
  114. GWVA_WIND_OBJ_FIRST_EXT_DX:    rs.w 1    ; position externe de la fenêtre relativement à sa mère,
  115. GWVA_WIND_OBJ_FIRST_EXT_DY:    rs.w 1    ; GWVA_WIN_H_CENTER,GWVA_WIN_V_CENTER pour centrer
  116. GWVA_WIND_OBJ_FIRST_INT_VISIBLE_W:    rs.w 1    ; taille interne en unité de la fenêtre
  117. GWVA_WIND_OBJ_FIRST_INT_VISIBLE_H:    rs.w 1    ; carac ou pixels (TAILLE MINIMALE 64 PIXELS*?) GWVA_WIN_SIZE_UNDEF pour laiser le V.A. s'en charger (taille du contenu)
  118. GWVA_WIND_OBJ_FIRST_CONTENTS_DX:    rs.w 1    ; position du contenu relativement au premier pixel
  119. GWVA_WIND_OBJ_FIRST_CONTENTS_DY:    rs.w 1    ; utile intérieur de la fenêtre (après le menu)
  120. GWVA_WIND_OBJ_FIRST_CONTENTS_W:    rs.w 1    ; taille du contenu initiale.
  121. GWVA_WIND_OBJ_FIRST_CONTENTS_H:    rs.w 1    ; constante GWVA_WIN_SIZE_UNDEF : la taille est définie par le contenu automatiquement (impossible pour une wind_custom)
  122.     ; n'est jamais comptée la hauteur du menu
  123.     ; si l'unité est le caractère, ils seront calculés à l'init
  124.     ; tous seront de toute façon vérifiés à l'init, sauf pour les CUSTOM
  125.     ; (interne) en pixels si bitmap fixé par taille de l'image
  126.     ; si wind_text, fixé par nb col,ligne : sera recalculé en pixel pour le "courant"
  127. GWVA_WIND_OBJ_FIRST_INT_BORDERS_W:    rs.w 1    ; Somme horizontale initiale des deux espaces à gauche et à droite du contenu
  128. GWVA_WIND_OBJ_FIRST_INT_BORDERS_H:    rs.w 1    ; la largeur totale initiale de la fenêtre est égale à ça + le taille du contenu
  129. ;>>>
  130.  
  131. GWVA_WIND_OBJ_INT_DX:        rs.w 1    ; position du coin supérieur gauche interne de la fenêtre
  132. GWVA_WIND_OBJ_INT_DY:        rs.w 1    ; par rapport à sa mère (par rapport au bureau pour la fenêtre racine), décalé du menu
  133. GWVA_WIND_OBJ_INT_VISIBLE_W:    rs.w 1    ; taille interne courante visible de la fenêtre, moins le menu
  134. GWVA_WIND_OBJ_INT_VISIBLE_H:    rs.w 1
  135. GWVA_WIND_OBJ_CONTENTS_DX:    rs.w 1    ; position du contenu relativement au premier pixel
  136. GWVA_WIND_OBJ_CONTENTS_DY:    rs.w 1    ; utile intérieur de la fenêtre (après le menu)
  137. GWVA_WIND_OBJ_CONTENTS_W:    rs.w 1    ; taille du contenu
  138. GWVA_WIND_OBJ_CONTENTS_H:    rs.w 1    ; 
  139. GWVA_WIND_OBJ_INT_BORDERS_W:    rs.w 1    ; Somme horizontale des deux espaces à gauche et à droite du contenu
  140. GWVA_WIND_OBJ_INT_BORDERS_H:    rs.w 1    ; la largeur totale de la fenêtre est égale à ça + le taille du contenu
  141.  
  142. GWVA_WIND_OBJ_USER_PTR1:    rs.l 1    ; pointeurs user defined
  143. GWVA_WIND_OBJ_USER_PTR2:    rs.l 1
  144.  
  145. GWVA_WIND_OBJ_GEM_HANDLE:    rs.w 1
  146.     ; handle gem, mettre GWVA_WIND_CTE_HANDLE_UNDEF au début
  147.     ; s'il y a GWVA_WIND_OBJ_GEM_HANDLE ici c'est que la fenêtre n'existe pas !
  148.     ; mettre en fin de structure, pour tst.w -1 à la création ratisse un décalage de structure
  149.  
  150. GWVA_WIND_OBJ_STRUCT_LENGTH:    rs.w 0
  151.  
  152. *--------------------  Structure of the Application Object  -----------------*
  153. *----------------------  Encapsulates the Window Objects
  154. *-------------------------  Encapsulates the V.A Object
  155.  
  156.     rsreset
  157.  
  158.     rs.b GWVA_WIND_OBJ_STRUCT_LENGTH
  159.  
  160. *à coder 8->16 eb
  161. GWVA_WAPP_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  162.     ; GWVA_WAPP_OLBIT_RSC_IN_MEM    : (0) le ressource doit être chargé, (1) il est en mémoire
  163.     ; GWVA_WAPP_OLBIT_RSC_MULTI_RES    : (0) un seul ressource (1) liste de ressorces en fonction de la resolution
  164.     ; GWVA_WAPP_OLBIT_BACKGROUND    : (0) pas de background (1) image de fond si APP
  165.     ; GWVA_WAPP_OLBIT_BACKGROUND_CENTER    : (0) background normal (1) centrage auto de l'objet 1
  166.  
  167. GWVA_WAPP_OBJ_REG_NAME:        rs.l 1    ; ptr sur le nom pour le MENU_REGISTER (REG_NEWNAME) (8 caractères)
  168. GWVA_WAPP_OBJ_ACC_NAME:        rs.l 1    ; ptr sur le nom pour le MENU_REGISTER
  169. GWVA_WAPP_OBJ_RSC_INFO:        rs.l 1    ; ptr soit sur le path-name soit sur l'adresse du ressource,
  170.                 ; ou bien sur un liste de ptr pour chaque nbre de coul. : 2, 4, 16, 256, pas de palette (5*1.L)
  171.                 ; 0.l si pas de ressource
  172. GWVA_WAPP_OBJ_TSR_SIZE:        rs.l 1    ; longueur à sauvegarder (page de base y compris) pour les TSR, 0.l si pas TSR
  173. GWVA_WAPP_OBJ_BACKGROUND_WIND_PTR:    rs.l 1    ; pointeur sur un objet fenetre
  174.  
  175. GWVA_WAPP_OBJ_STRUCT_LENGTH:    rs.w 0
  176.  
  177. *-------------------  Structure of the BITMAP Window Object  --------------------*
  178. *----------------------  Encapsulates the Window Objects
  179. *-------------------------  Encapsulates the V.A Object
  180.  
  181.     rsreset
  182.  
  183.     rs.b GWVA_WIND_OBJ_STRUCT_LENGTH
  184.  
  185. GWVA_WBITM_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  186.     ; GWVA_WBITM_OLBIT_FREEDATA : 1=automatically MFREE DATA_PTR  if bitmap window deleted
  187.     ; GWVA_WBITM_OLBIT_FREEPAL  : 1=automatically MFREE PAL_PTR   if bitmap window deleted
  188.     ; 2-7  : reserved, must be 0
  189.     ; 8-15 : free for user
  190.  
  191. GWVA_WBITM_OBJ_IMG_WIDTH:    rs.w 1    ; largeur de l'image
  192. GWVA_WBITM_OBJ_IMG_HEIGHT:    rs.w 1    ; hauteur de l'image
  193. GWVA_WBITM_OBJ_DATA_PTR:    rs.l 1    ; pointeur sur le buffer format écran (devide dependant)
  194. GWVA_WBITM_OBJ_PAL_PTR:        rs.l 1    ; ptr sur la palette (4/16/256)
  195. GWVA_WBITM_OBJ_NB_BITPLANES:    rs.w 1    ; nb de plans (1,2,4,8,16)
  196. GWVA_WBITM_OBJ_AFF_DX:        rs.w 1    ; (X,Y) / buffer du pixel dans le coin
  197. GWVA_WBITM_OBJ_AFF_DY:        rs.w 1    ; supérieur gauche
  198.  
  199. GWVA_WBITM_OBJ_STRUCT_LENGTH:    rs.w 0
  200.  
  201. *-------------------  Structure of the TEXT Window Object  --------------------*
  202. *----------------------  Encapsulates the Window Objects
  203. *-------------------------  Encapsulates the V.A Object
  204.  
  205.     rsreset
  206.  
  207.     rs.b GWVA_WIND_OBJ_STRUCT_LENGTH
  208.  
  209. GWVA_WTEXT_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  210.     ; GWVA_WTEXT_BIT_STYLE        ; la fenêtre est une fenêtre stylisée (malloc supplémentaire)
  211.     ; GWVA_WTEXT_BIT_CURSEUR    ; afficher le curseur
  212.     ; GWVA_WTEXT_BIT_EDIT        ; interprète les évènements claviers pour remplir le buffer
  213.     ; GWVA_WTEXT_BIT_PORTIONNAL    ; *no yet supported*
  214. GWVA_WTEXT_OBJ_NB_COLONNES:    rs.w 1    ; largeur : les deux doivent être (TAILLE MINIMALE 64 PIXELS*?)
  215. GWVA_WTEXT_OBJ_NB_LIGNES:    rs.w 1    ; hauteur : fixés par l'utilisateur et fixent w,h maximal interne
  216. GWVA_WTEXT_OBJ_FNT_SIZE:    rs.w 1    ; taille de la police en pixels
  217. GWVA_WTEXT_OBJ_CELL_WIDTH:    rs.w 1
  218. GWVA_WTEXT_OBJ_CELL_HEIGHT:    rs.w 1
  219. GWVA_WTEXT_OBJ_MALLOC:        rs.l 1    ; 0 si rien (pas de LF ni RC stockés)
  220. GWVA_WTEXT_OBJ_CUR_BUF_COL:    rs.w 1    ; numéro de la colonne du dernier caractère avant écriture dans la fenêtre
  221. GWVA_WTEXT_OBJ_CUR_BUF_LIGN:    rs.w 1    ; numéro de la ligne du dernier caractère avant écriture dans la fenêtre
  222. GWVA_WTEXT_OBJ_CUR_AFF_COL:    rs.w 1    ; numéro de la colonne précédement visible avant scroll
  223. GWVA_WTEXT_OBJ_CUR_AFF_LIGN:    rs.w 1    ; numéro de la ligne précédement visible avant scroll
  224. GWVA_WTEXT_OBJ_BUF_COLONNE:    rs.w 1    ; numéro de la colonne où le prochain caractère sera écrit dans le buffer
  225. GWVA_WTEXT_OBJ_BUF_LIGNE:    rs.w 1    ; numéro de la ligne où le prochain caractère sera écrit dans le buffer
  226. GWVA_WTEXT_OBJ_AFF_COLONNE:    rs.w 1    ; numéro de la colonne visible la plus à gauche
  227. GWVA_WTEXT_OBJ_AFF_LIGNE:    rs.w 1    ; numéro de la ligne visible la plus à gauche
  228.  
  229.     ifd MDL_WIND_STYLIZED_EDITABLE_TEXT
  230. GWVA_WTEXT_OBJ_MALLOC_STYLE:    rs.l 1    ; second buffer (style)
  231. GWVA_WTEXT_OBJ_TABLE_PALETTE:    rs.w 4    ; couleurs disponibles ds la fenêtre
  232. GWVA_WTEXT_OBJ_CURRENT_STYLE:    rs.b 1    ; style courant de remplissage
  233.     ; GWVA_WTEXT_STYLE_OLBIT_THICKENED or GWVA_WTEXT_STYLE_BIT_BOLD
  234.     ; GWVA_WTEXT_STYLE_OLBIT_LIGHT
  235.     ; GWVA_WTEXT_STYLE_OLBIT_SKEWED or GWVA_WTEXT_STYLE_BIT_ITALIC
  236.     ; GWVA_WTEXT_STYLE_OLBIT_UNDERLINED
  237.     ; GWVA_WTEXT_STYLE_OLBIT_INVERSE_VIDEO
  238.     ; GWVA_WTEXT_STYLE_OLBIT_SPECIAL_CHAR
  239.     ; GWVA_WTEXT_STYLE_OLBIT_COLOR
  240. GWVA_WTEXT_OBJ_CURRENT_MODE:    rs.b 1
  241.     ; 0    : GWVA_WTEXT_MODE_CR_IS_CRLF
  242.     ; 1    : GWVA_WTEXT_MODE_LF_IS_CRLF
  243.     ; 2/3=0: GWVA_WTEXT_MODE_PRINT    ; affiche seulement >=32 + cr & lf
  244.     ; 2/3=1: GWVA_WTEXT_MODE_VT52    ; interprète le VT-52 (esc & crlf)
  245.     ; 2/3=2: GWVA_WTEXT_MODE_ALLCHAR    ; tout est affiché en tant que char graphique
  246. GWVA_WTEXT_OBJ_CURRENT_XPOS:    rs.w 1    ; position du curseur graphique
  247. GWVA_WTEXT_OBJ_CURRENT_YPOS:    rs.w 1
  248. GWVA_WTEXT_OBJ_SPECIAL_DRAWING:    rs.l 1    ; routine de dessin user pour chars spéciaux
  249.     endc
  250.  
  251. GWVA_WTEXT_OBJ_STRUCT_LENGTH:    rs.w 0
  252.  
  253.     ; ?_ERROR_? : la police sélectionnée ?
  254.  
  255. *-------------------  Structure of The RSC Window Object  ---------------------*
  256. *----------------------  Encapsulates the Window Objects
  257. *-------------------------  Encapsulates the V.A Object
  258.  
  259.     rsreset
  260.  
  261.     rs.b GWVA_WIND_OBJ_STRUCT_LENGTH
  262.  
  263. GWVA_WRSC_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  264.     ; 0 : GWVA_WRSC_OLBIT_FREECLONE : 1=automatically MFREE CLONE_FORM_SAVE if form window deleted
  265.     ; 1-7  : reserved, must be 0
  266.     ; 8-15 : free for user
  267.  
  268. GWVA_WRSC_OBJ_TREE:        rs.w 1    ; numéro du tree du formulaire
  269. GWVA_WRSC_OBJ_IDX:        rs.w 1    ; numéro de l'objet père à afficher (0=root pour tout le formulaire)
  270. GWVA_WRSC_OBJ_DEPTH:        rs.w 1    ; profondeur d'affichage de l'arbre (7 pour tout afficher)
  271. GWVA_WRSC_OBJ_TREE_PTR:        rs.l 1    ; adresse du formulaire calculée par le visual
  272. GWVA_WRSC_OBJ_IS_CLONE_RSC:    rs.w 1    ; champs de bit disant ce qu'il faut sauver si ce formulaire est un clone ou 0.w si form unique
  273. GWVA_WRSC_OBJ_CLONE_MAIN_PTR:    rs.l 1    ; pointeur sur un mot long pointant en permanence sur la structure de la fenêtre clone active
  274. GWVA_WRSC_OBJ_CLONE_SAVED_RSC_PTR:    rs.l 1    ; pointeur sur une sauvegarde du contenu du formulaire
  275.  
  276. GWVA_WRSC_OBJ_STRUCT_LENGTH:    rs.w 0
  277.  
  278. *-------------------  Structure of the RSC POPUP Window Object  --------------------*
  279. *----------------------  Encapsulates the RSC Window Object
  280. *-------------------------  Encapsulates the Window Objects
  281. *----------------------------  Encapsulates the V.A Object
  282.  
  283.     rsreset
  284.  
  285.     rs.b GWVA_WRSC_OBJ_STRUCT_LENGTH
  286.  
  287. GWVA_WRSCPOPUP_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  288.     ; 0-7  : reserved, must be 0
  289.     ; 8-15 : free for user
  290.  
  291. GWVA_WRSCPOPUP_OBJ_SELECTED_ITEM_IDX:rs.w 1    ; Index de l'item du popup sélectionné (cliqué)
  292. GWVA_WRSCPOPUP_OBJ_CURRENT_ITEM_IDX:rs.w 1    ; Index de l'item du popup en cours de sélection (pas cliqué mais SELECTED)
  293. GWVA_WRSCPOPUP_OBJ_ATTACHED_OBJECT:    rs.l 1    ; Objet qui a demander l'ouverture de la fenêtre
  294. GWVA_WRSCPOPUP_OBJ_SELECTED_METHOD:    rs.l 1    ; Méthode de l'objet attaché à activer lors d'un sélection dans le popup
  295.  
  296. GWVA_WRSCPOPUP_OBJ_STRUCT_LENGTH:    rs.w 0
  297.  
  298. *-------------------  Structure of The Menu Objects  ----------------------*
  299. *--------------------  henerite of the V.A Object
  300. ; A revoir : création d'une classe RSC et non WRSC ?
  301.  
  302.     rsreset
  303.  
  304.     rs.b GWVA_OBJ_STRUCT_LENGTH
  305.  
  306. GWVA_RSC_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  307.     ; 0 : GWVA_RSC_OLBIT_FREECLONE : 1=automatically MFREE CLONE_FORM_SAVE if form window deleted
  308.     ; 1-7  : reserved, must be 0
  309.     ; 8-15 : free for user
  310.  
  311. GWVA_RSC_OBJ_TREE:        rs.w 1    ; numéro du tree du formulaire
  312. GWVA_RSC_OBJ_IDX:        rs.w 1    ; numéro de l'objet père à afficher (0=root pour tout le formulaire)
  313. GWVA_RSC_OBJ_DEPTH:        rs.w 1    ; profondeur d'affichage de l'arbre (7 pour tout afficher)
  314. GWVA_RSC_OBJ_TREE_PTR:        rs.l 1    ; adresse du formulaire calculée par le visual
  315. GWVA_RSC_OBJ_IS_CLONE_RSC:    rs.w 1    ; champs de bit disant ce qu'il faut sauver si ce formulaire est un clone ou 0.w si form unique
  316. GWVA_RSC_OBJ_CLONE_MAIN_PTR:    rs.l 1    ; pointeur sur un mot long pointant en permanence sur la structure de la fenêtre clone active
  317. GWVA_RSC_OBJ_CLONE_SAVED_RSC_PTR:    rs.l 1    ; pointeur sur une sauvegarde du contenu du formulaire
  318.  
  319. GWVA_MENU_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  320.     ; 0-7  : reserved, must be 0
  321.     ; 8-15 : free for user
  322. GWVA_MENU_OBJ_STATUS:        rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  323.     ; GWVA_MENU_OLBIT_OPEN     : 0=closed, 1=opened
  324. GWVA_MENU_OBJ_SCROLL_INDEX:    rs.w 1    ; nombre de titre décalé (0 pour le menu complet)
  325. GWVA_MENU_OBJ_LIST_ATTACH_PTR:    rs.l 1    ; 0.l si aucun sous menu ou 1 ptr sur un tableau de pointeurs sur des structures GWVA_SUB_MENU terminé par 0.l
  326. GWVA_MENU_OBJ_TITLE_SELECTED:    rs.w 1    ; index du titre du menu sélectionné
  327. GWVA_MENU_OBJ_DROPDOWN_LIST_SELECTED:rs.w 1    ; index de la dropdown sélectionnée
  328. GWVA_MENU_OBJ_START_LIST:    rs.w 0
  329.     ; 1.w ; le shortcut éventuel (0 si pas)
  330.     ;  1.b pour le masque de bits des touches spéciales
  331.     ;  bit 0=Rshift, bit 1=Lshift, bit 2=Ctrl, bit 3=Alt
  332.     ;  1.b pour le scan-code US !!! sera converti en langue locale
  333.     ; 1.l : pointeur sur la routine associée
  334.     ; 1.w : numéro du menu
  335.     ; -1.w à la fin
  336.     ; Les routines sont appelées avec les paramêtres suivant en entrée :
  337.     ;    a0.l = pointeur objet menu
  338.     ;    a1.l = pointeur sur l'objet fenêtre contenant le menu
  339.     ;    a2.l = pointeur sur le buffer message GEM ou 0 si activé autrement
  340.     ;    a3.l = pointeur sur le tree du menu
  341.     ;    a4.l = pointeur sur la structure GWVA_WMENU_OBJ_IDXLIST_STRUCT courante
  342.     ;    d0.w = Top menu sélectionné
  343.     ;    d1.w = Menu-item Idx
  344.     ;    d2.w = Menu Idx
  345.  
  346.     ; CTRL : dc.w MNU_DESK_INFO,$00*256+'i'-'a'+1    ; Ctrl - a
  347.     ; ALT  : dc.w MNU_FILE_WIND,$08*256+'a'    ; Alt - a
  348.     ; Prendre son copain dium
  349.     ; regarder l'ikbd.w donné pour cette combinaison sans shift
  350.     ; si l'octet bas est non nul : valeur ASCII : on se fout des touches spé
  351.     ; s'il est nul, c'est un scancode alors, en plus des touches spé :
  352.     ; 1) si la touche correspond à quelquechose d'ASCII, le mettre
  353.     ; 2) sinon, (par ex. F1) mettre le scancode +$80
  354.     ; dès que l'on a pas $80+..., le masque de touches spé est indifférent
  355.     ; Pas de shortcut utilisant Alt et une touche strictement à droite de 8
  356.  
  357. ; PAS DE STRUCTURE POUR LE TABLEAU DE POINTEURS SUR LES SOUS-MENUS
  358. ; CE TABLEAUX FINIT PAR UN 0.L
  359.  
  360.     rsreset
  361. GWVA_SUB_MENU_TREE_ATTACHED:    rs.w 1    ; Menu Tree contenant le menu auquel on veut attacher un sous menu
  362. GWVA_SUB_MENU_IDX_ATTACHED:    rs.w 1    ; Index du menu auquel on va attacher un sous menu
  363. GWVA_SUB_MENU_TREE:        rs.w 1    ; Index du tree qui contient le dessin du sous menu
  364. GWVA_SUB_MENU_IDX:        rs.w 1    ; Index du dessin père dans le ressource
  365. GWVA_SUB_MENU_WHICH_ALIGN:    rs.w 1    ; Quel fils du père ci-dessus doit être aligné avec le menu de départ
  366. GWVA_SUB_MENU_SCROLL:        rs.w 1    ; Scrollable ? (0) non (1) oui
  367. GWVA_SUB_MENU_START_LIST:    rs.w 0
  368.     ; 1.w ; le shortcut éventuel (0 si pas)
  369.     ;  1.b pour le masque de bits des touches spéciales
  370.     ;  bit 0=Rshift, bit 1=Lshift, bit 2=Ctrl, bit 3=Alt
  371.     ;  1.b pour le scan-code US !!! sera converti en langue locale
  372.     ; 1.l : poiteur sur la routine associée
  373.     ; 1.w : numéro du menu
  374.     ; -1.w à la fin
  375.     ; Les routines sont appelées avec les paramêtres suivant en entrée :
  376.     ;    a0.l = pointeur objet menu
  377.     ;    a1.l = pointeur sur l'objet fenêtre contenant le menu
  378.     ;    a2.l = pointeur sur le buffer message GEM ou 0 si activé autrement
  379.     ;    a3.l = pointeur sur le tree du menu
  380.     ;    a4.l = pointeur sur la structure GWVA_WMENU_OBJ_IDXLIST_STRUCT courante
  381.     ;    d0.w = Top menu sélectionné
  382.     ;    d1.w = Menu-item Idx
  383.     ;    d2.w = Menu Idx
  384.  
  385. *----- structure de la liste des composantes pour les menus et sous-menus -----*
  386.  
  387.     rsreset
  388.  
  389. GWVA_MENU_OBJ_MNULIST_ITEM_SHORTCUT:rs.w 1    ; le shortcut éventuel (0 si pas)
  390. GWVA_MENU_OBJ_MNULIST_ITEM_IDX:    rs.w 1    ; numéro du menu
  391. GWVA_MENU_OBJ_MNULIST_ITEM_ROUTINE:rs.l 1    ; pointeur sur la routine associée
  392.  
  393. GWVA_MENU_OBJ_MNULIST_STRUCT_LENGTH:rs.w 0
  394.  
  395. *-------------- Structure commune pour la recherche des shortcuts ---------*
  396.  
  397.     rsreset    ; structure commune pour les shortcuts des menus et sous-menus, des tables
  398.         ; associées aux fenêtres et des listes d'objet (pour GWVA_CONVERT_KC_IN_OBJECT_IDX)
  399.  
  400. GWVA_COMMON_LISTOBJ_SHORTCUT:    rs.w 1
  401.  
  402. *-------------------  Structure of the FORM Window Object  --------------------*
  403. *----------------------  Encapsulates the RSC Window Object
  404. *-------------------------  Encapsulates the Window Objects
  405. *----------------------------  Encapsulates the V.A Object
  406.  
  407.     rsreset
  408.  
  409.     rs.b GWVA_WRSC_OBJ_STRUCT_LENGTH
  410.  
  411. GWVA_WFORM_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  412.     ; GWVA_WFORM_OLBIT_COPY_FOCUS    : 1 = recopie du FOCUSED_IDX dans le FIRST_FOCUSED_IDX au DELETE de l'objet
  413.     ; 1-7  : reserved, must be 0
  414.     ; 8-15 : free for user
  415.  
  416. GWVA_WFORM_OBJ_FIRST_FOCUSED_IDX:    rs.w 1    ; numéro de l'objet ayant le focus en premier (GWVA_WFORM_CTE_FOCUSED_IDX_UNDEF si aucun voulu ou GWVA_WFORM_CTE_FOCUSED_IDX_1ST_FOUND si indifférent)
  417. GWVA_WFORM_OBJ_FOCUSED_IDX:    rs.w 1    ; numéro de l'objet courant ayant le focus (GWVA_WFORM_CTE_FOCUSED_IDX_UNDEF si aucun voulu ou GWVA_WFORM_CTE_FOCUSED_IDX_1ST_FOUND si indifférent)
  418. GWVA_WFORM_OBJ_FOCUSED_IDX_CURSOR_POS:rs.w 1    ; position du curseur (recalculée par le V.A.). GWVA_WFORM_CTE_FOCUSED_IDX_CURSOR_POS_UNDEF sinon
  419.  
  420. GWVA_WFORM_OBJ_STRUCT_LENGTH:    rs.w 0
  421.  
  422. *--------------------------  Structures of the FORM Objects  --------------------------*
  423.  
  424. *-------------- Structure de l'objet formulaire (commun) ---------------*
  425.  
  426.     rsreset
  427.  
  428.     rs.b GWVA_OBJ_STRUCT_LENGTH
  429.  
  430. GWVA_FORM_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  431.     ; 0-7  : reserved, must be 0
  432.     ; 8-15 : free for user
  433.  
  434. GWVA_FORM_OBJ_STRUCT_LENGTH:    rs.w 0
  435.  
  436. ; Seules les méthodes de cet objet nous interessent (CLICK ....)
  437.  
  438. *---------------------- Structure de l'objet bouton --------------------*
  439. *----------------------- Hérite de l'objet formulaire commun
  440.  
  441.     rsreset
  442.  
  443.     rs.b GWVA_FORM_OBJ_STRUCT_LENGTH
  444.  
  445. GWVA_FBTON_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  446.     ; GWVA_FBTON_OLBIT_INIT_STATE    : 0 = recopie l'etat du ressource -> l'objet V.A.
  447.     ;             : 1 = fait un OR.W à l'init de l'état de l'objet V.A. -> le ressource
  448.     ; 1-7  : reserved, must be 0
  449.     ; 8-15 : free for user
  450. GWVA_FBTON_OBJ_MAIN_IDX:    rs.w 1
  451. GWVA_FBTON_OBJ_MAIN_PTR:    rs.l 1    ; pointeur sur l'objet dans le ressource
  452. GWVA_FBTON_OBJ_STATE:        rs.w 1
  453.  
  454. GWVA_FBTON_OBJ_STRUCT_LENGTH:    rs.w 0
  455.  
  456.     ; un bouton exit ou touchexit sera redessiné déselectionné s'il est enfoncé
  457.  
  458.     ; clic :    a0=ptr fenêtre
  459.     ;    a1=ptr formulaire
  460.     ;    a2=ptr structure évènement (ptr sur obj dans la liste des objets)
  461.     ;    a3=ptr obj bouton
  462.     ;    d0=No objet du formulaire clické qui a entrainé l'activation du bouton
  463.     ;    d1=état du bouton (bit 0 : selected?)
  464.  
  465. *---------------------- Structure de l'objet popup --------------------*
  466. *----------------------- Hérite de l'objet formulaire commun
  467.  
  468.     rsreset
  469.  
  470.     rs.b GWVA_FORM_OBJ_STRUCT_LENGTH
  471.  
  472. GWVA_FPOP_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  473.     ; GWVA_FPOP_OLBIT_INIT_SELECT    : 1 = affecte la sélection du popup V.A. -> le ressource
  474.     ; 1-7  : reserved, must be 0
  475.     ; 8-15 : free for user
  476. GWVA_FPOP_OBJ_MAIN_IDX:        rs.w 1    ; numéro de objet fait apparaitre le popup
  477. GWVA_FPOP_OBJ_POP_TREE:        rs.w 1    ; numéro de l'arbre (formulaire contenant le popup)
  478. GWVA_FPOP_OBJ_POP_IDX:        rs.w 1    ; numéro de l'objet qui sera le popup
  479. GWVA_FPOP_OBJ_SELECTION:    rs.w 1    ; numéro de l'objet sélectionné (à initialiser par le user)
  480.  
  481. GWVA_FPOP_OBJ_STRUCT_LENGTH:    rs.w 0
  482.  
  483.     ; change :    a0=ptr fenêtre
  484.     ;    a1=ptr formulaire
  485.     ;    a2=ptr structure évènement (ptr sur obj dans la liste des objets)
  486.     ;    a3=ptr obj popup
  487.     ;    d0=No objet du formulaire clické qui a entrainé l'activation du popup
  488.     ;    d1=nouvelle sélection
  489.     ;    d2=ancienne sélection
  490.  
  491. *------------------- Structure de l'objet radio-bouton -----------------*
  492. *-------------------- Hérite de l'objet formulaire commun
  493.  
  494.     rsreset
  495.  
  496.     rs.b GWVA_FORM_OBJ_STRUCT_LENGTH
  497.  
  498. GWVA_FRADIO_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  499.     ; GWVA_FRADIO_OLBIT_INIT_SELECT    : 0 = affecte la sélection du ressource -> radio V.A.
  500.     ;            : 1 = affecte la sélection du radio V.A. -> le ressource
  501.     ; 1-7  : reserved, must be 0
  502.     ; 8-15 : free for user
  503. GWVA_FRADIO_OBJ_FATHER_IDX:    rs.w 1    ; numéro de objet père des radio boutons
  504. GWVA_FRADIO_OBJ_SELECTION:    rs.w 1    ; numéro de l'objet sélectionné (à initialiser par le user)
  505.  
  506. GWVA_FRADIO_OBJ_STRUCT_LENGTH:    rs.w 0
  507.  
  508.     ; change :    a0=ptr fenêtre
  509.     ;    a1=ptr formulaire
  510.     ;    a2=ptr structure évènement (ptr sur obj dans la liste des objets)
  511.     ;    a3=ptr obj radio-bouton
  512.     ;    d0=nouvelle sélection
  513.     ;    d1=ancienne sélection
  514.  
  515. *----------------- Structure de l'objet percent-progress ---------------*
  516. *------------------ Hérite de l'objet formulaire commun
  517.  
  518.     rsreset
  519.  
  520.     rs.b GWVA_FORM_OBJ_STRUCT_LENGTH
  521.  
  522. GWVA_FPROGRESS_OBJ_PERCENT:    rs.w 1    ; pourcentage 0 <= percent <= 100 sinon infini "oo"
  523. GWVA_FPROGRESS_OBJ_TEXT_IDX:    rs.w 1    ; Index du texte ASCII ou 0 si pas
  524. GWVA_FPROGRESS_OBJ_BAR_FATHER_IDX:    rs.w 1    ; Index du graphique père fixe contenant l'autre variable
  525. GWVA_FPROGRESS_OBJ_BAR_SON_IDX:    rs.w 1    ; Index du graphique dont la taille va varier de 0 à celle du père
  526.  
  527. GWVA_FPROGRESS_OBJ_STRUCT_LENGTH:    rs.w 0
  528.  
  529. *----------------------- Structure de l'objet slider -------------------*
  530. *------------------------ Hérite de l'objet formulaire commun
  531.  
  532.     rsreset
  533.  
  534.     rs.b GWVA_FORM_OBJ_STRUCT_LENGTH
  535.  
  536. GWVA_FSLIDER_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  537.     ; GWVA_FSLIDER_OLBIT_ORIENTATION    : 0 = slider horizontal, 1 = slider vertical
  538.     ; 1-7  : reserved, must be 0
  539.     ; 8-15 : free for user
  540. GWVA_FSLIDER_OBJ_POS:        rs.l 1    ; Position du coulisseau (en nombre d'élément : 0 <= POS < (LENGTH-PAGESIZE)
  541. GWVA_FSLIDER_OBJ_PAGESIZE:    rs.l 1    ; Nombre d'éléments représentant le coulisseau (une page)
  542. GWVA_FSLIDER_OBJ_LENGTH:    rs.l 1    ; Nombre d'éléments représentant la glissière
  543. GWVA_FSLIDER_OBJ_FATHER_IDX:    rs.w 1    ; Index du graphique de la glissière
  544. GWVA_FSLIDER_OBJ_SON_IDX:    rs.w 1    ; Index du graphique du coulisseau en lui même
  545. GWVA_FSLIDER_OBJ_P1_IDX:    rs.w 1    ; Index de l'objet provoquant l'addition d'1 élement (0 si pas)
  546. GWVA_FSLIDER_OBJ_M1_IDX:    rs.w 1    ; Index de l'objet provoquant la soustraction d'1 élement (0 si pas)
  547. GWVA_FSLIDER_OBJ_P1P_IDX:    rs.w 1    ; Index de l'objet provoquant l'addition d'1 page (0 si pas)
  548. GWVA_FSLIDER_OBJ_M1P_IDX:    rs.w 1    ; Index de l'objet provoquant la soustraction d'1 page (0 si pas)
  549.  
  550. GWVA_FSLIDER_OBJ_STRUCT_LENGTH:    rs.w 0
  551.  
  552. ; -> GWVA_METHOD_FSLIDER_MOVED :    a0.l = pointeur sur l'objet
  553. ;            a1.l = pointeur sur la fenêtre
  554. ;            d0.l = nouvelle position du slider
  555. ;            d1.l = déplacement effectué (signé)
  556.  
  557. *----------------- Structure de l'objet click equivalent ---------------*
  558. *------------------- Hérite de l'objet formulaire commun
  559.  
  560.     rsreset
  561.  
  562.     rs.b GWVA_FORM_OBJ_STRUCT_LENGTH
  563.  
  564. GWVA_FCLICK_EQUIV_OBJ_MAIN_IDX:    rs.w 1    ; Numéro de l'objet dans le même formulaire,
  565. GWVA_FCLICK_EQUIV_OBJ_MAIN_PTR:    rs.l 1    ; pointeur sur l'objet dans le ressource
  566. GWVA_FCLICK_EQUIV_OBJ_TARGET_IDX:    rs.w 1    ; Numéro de l'objet dans le même formulaire,
  567.                 ; à activer si on clique sur RSC_IDX
  568. GWVA_FCLICK_EQUIV_OBJ_STRUCT_LENGTH:rs.w 0
  569.  
  570. *---------------------- Structure de l'objet texte ---------------------*
  571. *----------------------- Hérite de l'objet formulaire commun
  572.  
  573.     rsreset
  574.  
  575.     rs.b GWVA_FORM_OBJ_STRUCT_LENGTH
  576.  
  577. GWVA_FTEXT_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  578.     ; 0-7  : reserved, must be 0
  579.     ; 8-15 : free for user
  580. GWVA_FTEXT_OBJ_MAIN_IDX:    rs.w 1    ; Numéro de l'objet dans le ressource
  581. GWVA_FTEXT_OBJ_MAIN_PTR:    rs.l 1    ; pointeur sur l'objet dans le ressource
  582. GWVA_FTEXT_OBJ_STRING_PTR:    rs.l 1    ; pointeur sur le FTEXT, TEXT, STRING, ..
  583.  
  584. GWVA_FTEXT_OBJ_STRUCT_LENGTH:    rs.w 0
  585.  
  586. *------------------- Structure de l'objet texte chainé -----------------*
  587. *-------------------- Hérite de l'objet texte
  588. *---------------------  Hérite de l'objet formulaire commun
  589.  
  590.     rsreset
  591.  
  592.     rs.b GWVA_FTEXT_OBJ_STRUCT_LENGTH
  593.  
  594. GWVA_FCHAINED_TXT_OBJ_PROPERTIES:    rs.w 1    ; YOU MUST USE THE bftst (a0){OLBit:1} TO CHECK THE PROPERTIES
  595.     ; 0-7  : reserved, must be 0
  596.     ; 8-15 : free for user
  597. GWVA_FCHAINED_TXT_OBJ_START_CHAIN:    rs.w 0    ; début de la liste des index des objets GEM constituant le texte
  598. ; après la liste des objets (terminée par -1.w)
  599.  
  600. *----------------------------------------------------------------------*
  601. *------------------ Définitions pour les messages du logger
  602.  
  603.     rsreset
  604.     rs.b bmsg_start_free_data
  605. bmsg_debug_format:    rs.w 1
  606. bmsg_debug_string_ptr:    rs.l 1
  607. bmsg_debug_ack_word_ptr:rs.l 1
  608.  
  609. ;------------------------------------------------------------------------------
  610. ; Définition de la structure de la table des méthodes par défaut de chaque classe
  611.  
  612.     rsreset
  613. GWVA_OBJ_CLASSLIST_ITEM_CLASS:        rs.w 1
  614. GWVA_OBJ_CLASSLIST_LINKLIST_PTR:        rs.l 0
  615. GWVA_OBJ_CLASSLIST_ITEM_DEFAULTMETHOD_PTR:    rs.l 1
  616. GWVA_OBJ_CLASSLIST_ITEM_STRUCT_LENGTH:    rs.w 0
  617.  
  618. ;---------------------------------------------------------------------------------------------
  619. ; Définition de la structure de la table d'héritages de chaque classe
  620.  
  621.     rsreset
  622. GWVA_OBJ_INHERITANCELIST_ITEM_SONCLASS:    rs.w 1    ; NEW
  623. GWVA_OBJ_INHERITANCELIST_ITEM_FATHERCLASS:    rs.w 1    ; OLD
  624. GWVA_OBJ_INHERITANCELIST_LINKLIST_PTR:    rs.l 0
  625. GWVA_OBJ_INHERITANCELIST_ITEM_STRUCT_LENGTH:    rs.w 0
  626.